home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -readerstuff- / d_keletsekis / tools / fastread / makedoc.gc < prev    next >
Text File  |  1997-10-03  |  4KB  |  192 lines
  1. G4C
  2.  
  3. ; A document assembler for the Gui4Cli FastRead help system.
  4.  
  5. winbig -1 -1 360 139 "MakeDoc © G.Maddox 1997"
  6. winsmall -1 -1 360 139
  7. wintype 11110001
  8. varpath ""
  9.  
  10. xonload
  11. ifexists file c:type
  12.     ;Nop
  13. else
  14.     ezreq "I need the TYPE command in C:" Okay ""
  15.     guiquit makedoc.gc
  16. endif
  17. guiopen makedoc.gc
  18. setgad makedoc.gc 3 on
  19. setgad makedoc.gc 4 off
  20.  
  21. xonclose
  22. ifexists file env:dbname
  23.     delete env:dbname
  24. endif
  25. guiquit makedoc.gc
  26.  
  27. xlistview 0 39 180 100 "" srcefile "" 0 dir
  28. gadid 1
  29. gadfont topaz.font 8 000
  30. lvdirhook 1
  31. extract srcefile file srcefile
  32. lvuse makedoc.gc 2
  33. lvadd $srcefile
  34.  
  35. xlvdirhook 1
  36. cd $$lv.dir
  37.  
  38. xlistview 180 39 180 100 "" "" "" 0 txt
  39. gadid 2
  40. gadfont topaz.font 8 000
  41.  
  42. xbutton 0 0 70 13 Outfile
  43. reqfile -1 -1 240 -60 "Select Output File" save outfile SYS:
  44. if $outfile > ""
  45.     gosub makedoc.gc checkexist
  46.     extract outfile file dbtitle
  47.     update makedoc.gc 3 $outfile
  48.     setgad makedoc.gc 4 on
  49. else
  50.     setgad makedoc.gc 3 on
  51. endif
  52.  
  53. xtextin 70 0 290 13 "" outfile "" 512
  54. gadid 3
  55. if $outfile = ""
  56.     ezreq "You MUST supply a\ntarget path/filename!" Okay ""
  57.     setgad makedoc.gc 3 on
  58. else
  59.     gosub makedoc.gc checkexist
  60.     extract outfile file dbtitle
  61.     setgad makedoc.gc 4 on
  62. endif
  63.  
  64. xbutton 0 13 60 13 Volume
  65. lvuse makedoc.gc 1
  66. lvdir disks
  67.  
  68. xbutton 60 13 60 13 Root
  69. lvuse makedoc.gc 1
  70. lvdir root
  71.  
  72. xbutton 120 13 60 13 Parent
  73. lvuse makedoc.gc 1
  74. lvdir parent
  75.  
  76. xbutton 0 26 60 13 All
  77. lvuse makedoc.gc 1
  78. lvdir all
  79.  
  80. xbutton 60 26 60 13 None
  81. lvuse makedoc.gc 1
  82. lvdir none
  83.  
  84. xbutton 120 26 60 13 Xfer
  85. gosub makedoc.gc nofile
  86. while $srcefile > ""
  87.     ifexists dir $srcefile
  88.         lvmulti off
  89.         lvmulti next
  90.     else
  91.         extract srcefile file srcefile
  92.         lvuse makedoc.gc 2
  93.         lvadd $srcefile
  94.         lvuse makedoc.gc 1
  95.         lvmulti off
  96.         lvmulti next
  97.     endif
  98. endwhile
  99.  
  100. xbutton 180 13 60 13 Clear
  101. lvuse makedoc.gc 2
  102. lvclear
  103.  
  104. xbutton 240 13 60 13 _Up
  105. lvuse makedoc.gc 2
  106. if $$lv.line > 0
  107.     dummy1 = $$lv.rec
  108.     lvgo prev
  109.     dummy2 = $$lv.rec
  110.     lvput $dummy1
  111.     lvgo next
  112.     lvput $dummy2
  113.     lvgo prev
  114. endif
  115.  
  116. ;-------------------- 
  117.  
  118. xbutton 300 13 60 13 Start
  119. gadid 4
  120. ..dbname = '@database $dbtitle\n@Node main \"$dbtitle\"\n\nNODES :\n\n'
  121. cli 'c:type env:dbname to $outfile'
  122. lvuse makedoc.gc 2
  123. lvgo first
  124. guiwindow makedoc.gc wait
  125.  
  126. ;--- make main node page - to make it AmigaGuide compatible
  127. while $$lv.line > ""
  128.      append $outfile '\t@{\" $$lv.rec \" link \"$$lv.rec\"} \n'
  129.      lvgo next
  130. endwhile
  131. append $outfile '\n@endnode\n'
  132.  
  133. ;---- join the files
  134. lvgo first
  135. while $$lv.line > ""
  136.      append $outfile '\n@node \"$$lv.rec\"\n\n'
  137.      cli 'c:type $$lv.rec >>$outfile'
  138.      append $outfile '\n@endnode\n'
  139.      lvgo next
  140. endwhile
  141.  
  142. guiwindow makedoc.gc resume
  143. lvclear
  144. delvar outfile
  145. update makedoc.gc 3 ""
  146. setgad makedoc.gc 4 off
  147.  
  148. ;--------------- 
  149.  
  150.  
  151. xbutton 180 26 60 13 Remove
  152. lvuse makedoc.gc 2
  153. lvdel -1
  154.  
  155. xbutton 240 26 60 13 _Down
  156. lvuse makedoc.gc 2
  157. numlines = $$lv.total
  158. counter numlines dec 1
  159. if $$lv.line < $numlines
  160.     dummy1 = $$lv.rec
  161.     lvgo next
  162.     dummy2 = $$lv.rec
  163.     lvput $dummy1
  164.     lvgo prev
  165.     lvput $dummy2
  166.     lvgo next
  167. endif
  168.  
  169. xbutton 300 26 60 13 Quit
  170. guiclose makedoc.gc
  171.  
  172. xroutine nofile
  173. lvuse makedoc.gc 1
  174. lvmulti first
  175. if $srcefile = ""
  176.     ezreq "No Files Selected" Okay ""
  177.     stop
  178. endif
  179.  
  180. xroutine checkexist
  181. ifexists file $outfile
  182.     ezreq "File already exists. If you\nproceed it will be appended to." Append|Cancel opt
  183.     if $opt = 1
  184.         return
  185.     else
  186.         delvar outfile
  187.         update makedoc.gc 3 ""
  188.         setgad makedoc.gc 4 off
  189.         stop
  190.     endif
  191. endif
  192.